home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Information / TUTOR.ARC / PONZO TUTOR 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  16.4 KB  |  533 lines
  1. 0 RUN00100
  2. 1 REM"
  3. 2 [143]"PONZO*1983*WATERLOO
  4. 3 REM"
  5. 100 [151]53281,15:[151]53280,12:[153]"STOP":[153]"LOAD              C64 TUTOR-2
  6. 101 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  7. 102 PRINT"[221]           MORE C64 BASIC           [146] [221]":MS$=" WELCOME! "
  8. 103 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144]"
  9. 104 SN$="1000":GOSUB63200:GOSUB63600
  10. 105 GOSUB60000:GOSUB59000
  11. 1000 GOSUB60000:GOSUB20000
  12. 1005 PRINT"[147]IN THIS,THE 2ND PART OF "CHR$(34)"TUTOR"CHR$(34)
  13. 1010 PRINT"WE'LL TALK ABOUT THE MANIPULATION OF"
  14. 1020 PRINT"  STRINGS."
  15. 1030 PRINT"  [183][183][183][183][183][183][183]"
  16. 1040 PRINT"RECALL[146]: ANY VARIABLE WHOSE NAME ENDS"
  17. 1050 PRINT"WITH A $ IS INTERPRETED AS A STRING"
  18. 1060 PRINT"OF SYMBOLS, AND NOT A NUMBER OR AN"
  19. 1070 PRINT"INSTRUCTION."
  20. 1080 PRINT"SO..THE STATEMENT:"
  21. 1090 PRINT"A$="CHR$(34)"123*456/789"CHR$(34)
  22. 1100 PRINT"MEANS THAT A$ IS THAT SET OF SYMBOLS!"
  23. 1110 PRINT"              [183][183]"
  24. 1120 PRINT"(..AND I CERTAINLY WON'T EVALUATE A$)"
  25. 1130 PRINT"                         [163][163][163][163][163][163][163][163]"
  26. 1140 PRINT"NOW, ONE VERY NICE SET OF SYMBOLS IS:"
  27. 1150 PRINT"[165] [180] [181] [161] [182][146] [182][146] [170][146]  [146]"
  28. 1155 PRINT
  29. 1160 PRINT"WE'LL CALL THEM S$(1), S$(2),..,S$(8)"
  30. 1170 GOSUB63000
  31. 1190 PRINT"[147]WE'LL TYPE:":PRINT
  32. 1200 PRINT"10 S$(1)="CHR$(34)"[165]"
  33. 1210 PRINT"20 S$(2)="CHR$(34)"[180]"
  34. 1220 PRINT"30 S$(3)="CHR$(34)"[181]"
  35. 1230 PRINT"40 S$(4)="CHR$(34)"[161]"
  36. 1235 PRINT"50 S$(5)="CHR$(34)"[182][146]"
  37. 1240 PRINT"60 S$(6)="CHR$(34)"[170][146]"
  38. 1250 PRINT"70 S$(7)="CHR$(34)"[167][146]"
  39. 1260 PRINT"80 S$(8)="CHR$(34)" [146]"
  40. 1261 PRINT"            ^THAT'S RVS-OFF"
  41. 1270 PRINT"STRANGE?"
  42. 1280 PRINT"WELL, THE 1ST 4 ARE ON THE KEYBOARD."
  43. 1290 PRINT"THE LAST 4 ARE OBTAINED BY RVS[146]ING"
  44. 1300 PRINT"THE CHARACTERS[192][192][192][192][192]>  [182],[170],[167],AND  "
  45. 1310 PRINTSPC(32)"^"
  46. 1320 PRINTSPC(31)"THAT'S A"
  47. 1330 PRINTSPC(31)"SPACE.  "
  48. 1340 PRINT"[145][145]NOTE THAT WE TURN"
  49. 1350 PRINT"THE RVS OFF TOO!"
  50. 1360 PRINT"        [163][163][163]"
  51. 1370 PRINT"ALSO..WE DON'T NEED THE LAST QUOTES."
  52. 1380 PRINT"I'LL UNDERSTAND THE "CHR$(34)"RETURN"CHR$(34)
  53. 1390 PRINT"TO MEAN THE END OF THE STATEMENT."
  54. 1400 PRINT:GOSUB63000
  55. 1420 PRINT"[147]NOW I'LL PRINT THE STATEMENTS #10-80"
  56. 1430 PRINT"AGAIN, AND YOU CAN MOVE THE C'SOR TO"
  57. 1440 PRINT"TO #10, THEN KEEP PRESSING RETURN,"
  58. 1450 PRINT"SO I'LL THINK YOU TYPED THEM,AND I'LL"
  59. 1460 PRINT"REMEMBER THEM.[163][163][163]"
  60. 1470 PRINT"[163][163][163][163][163][163][163][163]"
  61. 1500 PRINT"10 S$(1)="CHR$(34)"[165]"
  62. 1510 PRINT"20 S$(2)="CHR$(34)"[180]"
  63. 1520 PRINT"30 S$(3)="CHR$(34)"[181]"
  64. 1530 PRINT"40 S$(4)="CHR$(34)"[161]"
  65. 1535 PRINT"50 S$(5)="CHR$(34)"[182][146]"
  66. 1540 PRINT"60 S$(6)="CHR$(34)"[170][146]"
  67. 1550 PRINT"70 S$(7)="CHR$(34)"[167][146]"
  68. 1560 PRINT"80 S$(8)="CHR$(34)" [146]"
  69. 1570 PRINT:PRINT"WHEN YOU'VE DONE THAT, TYPE:"
  70. 1580 PRINT:PRINT"LIST10-80"
  71. 1590 PRINT:PRINT"..SO YOU'LL BE SURE I GOT THEM!"
  72. 1600 PRINT:PRINT"     (TO CONTINUE...TYPE @[146])"
  73. 1700 SN$="02000":GOTO63400
  74. 2000 GOSUB60000
  75. 2001 DIMD$(12),V(12)
  76. 2006 D$(1)="JAN":D$(2)="FEB":D$(3)="MAR":D$(4)="APR"
  77. 2007 D$(5)="MAY":D$(6)="JUN":D$(7)="JUL":D$(8)="AUG"
  78. 2008 D$(9)="SEP":D$(10)="OCT":D$(11)="NOV":D$(12)="DEC"
  79. 2110 V(1)=10:V(2)=15:V(3)=20:V(4)=25:V(5)=30:V(6)=31
  80. 2120 V(7)=25:V(8)=20:V(9)=15:V(10)=12:V(11)=11:V(12)=10
  81. 2130 FORI=1TO12:PRINT""D$(I)"-"STR$(V(I))"[167]";
  82. 2140 FORJ=1TOV(I):PRINT" ";:NEXT
  83. 2150 PRINTS$(8*(V(I)-INT(V(I)))):NEXT
  84. 2160 FORI=1TO500:NEXT
  85. 2170 PRINT:PRINT"    NICE?"
  86. 2175 FORI=1TO500:NEXT
  87. 2180 PRINT:PRINT"  LET'S TRY IT!"
  88. 2190 FORI=1TO500:NEXT
  89. 2200 PRINT"FIRST, WE'LL DEFINE THE STRINGS:"
  90. 2201 PRINT
  91. 2210 PRINT"M$(1)="CHR$(34)"JAN"CHR$(34)
  92. 2220 PRINT"M$(2)="CHR$(34)"FEB"CHR$(34)
  93. 2229 PRINT
  94. 2230 PRINT"..ETC."
  95. 2240 GOSUB63000
  96. 2250 PRINT"[147]"
  97. 2260 PRINT"..ACTUALLY, JUST TO DEMONSTRATE ANOTHER"
  98. 2270 PRINT"TALENT OF MINE, WE'LL DO IT THIS WAY:"
  99. 2280 PRINT:PRINT"100 DATA "CHR$(34)"JAN"CHR$(34)","CHR$(34)"FEB"CHR$(34)",";
  100. 2290 PRINTCHR$(34)"MAR"CHR$(34)","CHR$(34)"APR"CHR$(34)","CHR$(34)"MAY"CHR$(34)
  101. 2295 PRINT"101 DATA "CHR$(34)"JUN"CHR$(34)","CHR$(34)"JUL"CHR$(34)",";
  102. 2296 PRINTCHR$(34)"AUG"CHR$(34)","CHR$(34)"SEP"CHR$(34)","CHR$(34)"OCT"CHR$(34)
  103. 2297 PRINT"102 DATA "CHR$(34)"NOV"CHR$(34)","CHR$(34)"DEC"CHR$(34)
  104. 2350 PRINT:PRINT"THESE "CHR$(34)"DATA"CHR$(34)" STATEMENTS"
  105. 2360 PRINT"DEFINE A NUMBER OF STRINGS, CALLED"
  106. 2370 PRINT"JAN,FEB,MAR,ETC.."
  107. 2380 PRINT"NOW TYPE:"
  108. 2390 PRINT:PRINT"103 FORI=1TO12:READ M$(I):NEXT"
  109. 2400 PRINT:PRINT"THIS "CHR$(34)"READS"CHR$(34)" THE DATA STATEMENTS AND"
  110. 2410 PRINT"ASSIGNS THE STRING "CHR$(34)"JAN"CHR$(34)" TO M$(1),"
  111. 2420 PRINT"AND THE STRING "CHR$(34)"FEB"CHR$(34)" TO M$(2)..ETC."
  112. 2425 GOSUB63000
  113. 2430 PRINT"[147]YOU'LL HAVE TO TELL ME HOW MANY OF THE"
  114. 2440 PRINT"M$(1),M$(2),ETC. YOU HAVE, SO I CAN"
  115. 2450 PRINT"LEAVE ROOM FOR THEM IN MY MEMORY,"
  116. 2460 PRINT"SO YOU'LL NEED A STATEMENT:"
  117. 2470 PRINT"90 DIM M$(12)"
  118. 2480 PRINT"THIS SAYS: THE DIMENSION OF THE ARRAY"
  119. 2490 PRINT"OF STRINGS CALLED M$(I) IS 12"
  120. 2500 GOSUB63000
  121. 2519 PRINT"[147]...ALTOGETHER NOW!":PRINT
  122. 2540 FORI=1TO500:NEXT
  123. 2570 PRINT"90 DIM M$(12)                   "
  124. 2580 PRINT"100 DATA JAN,FEB,MAR,APR,MAY,JUN"
  125. 2600 PRINT"101 DATA JUL,AUG,SEP,OCT,NOV,DEC"
  126. 2610 PRINT"102 FORI=1TO12:READ M$(I):NEXT  "
  127. 2620 PRINT"NOTE[157][157][157][157][184][184][184][184][145]:IF ALL[146] THE DATA ARE STRINGS"
  128. 2625 PRINT"THEN YOU CAN OMIT THE QUOTES!"
  129. 2630 PRINT:PRINT"(DON'T ENTER THE STATEMENTS JUST YET)."
  130. 2640 GOSUB63000
  131. 2650 PRINT"[147]NOW YOU'LL WANT TO INPUT THE 12 VALUES"
  132. 2660 PRINT"WHICH GIVE THE LENGTH OF THE BARS."
  133. 2670 PRINT"TYPE:"
  134. 2680 PRINT"105 FOR I=1TO12   "
  135. 2690 PRINT"110?M$(I)"CHR$(34)" VALUE="CHR$(34)
  136. 2700 PRINT"120 INPUT V(I)    "
  137. 2705 PRINT:PRINT"NOTE THAT#110 WILL PRINT A PROMPTING"
  138. 2706 PRINT"  REMARK, SUCH AS:"
  139. 2707 PRINT:PRINT"JAN VALUE=?"
  140. 2708 PRINT:GOSUB63000
  141. 2710 PRINT"[147][209]SINCE YOU'LL PRINT 150 OF S$(8)= [146]"
  142. 2720 PRINT"(IF AN INPUT VALUE IS 150)AND I'VE"
  143. 2730 PRINT"GOT ONLY"WD" COLUMNS ON MY SCREEN(!),"
  144. 2740 PRINT"YOU'D BETTER REDUCE ALL THE VALUES"
  145. 2750 PRINT"SO THE LARGEST IS,SAY,30."
  146. 2760 PRINT"SO..YOU'LL HAVE TO FIND THE LARGEST."
  147. 2761 PRINT"                   [183][183][183][183]"
  148. 2770 PRINT"[209]YOU SEE,WE'RE GOING TO PRINT A "CHR$(34)"BAR"CHR$(34)
  149. 2780 PRINT"WITH A LENGTH PROPORTIONAL TO EACH V-"
  150. 2790 PRINT"INPUT,AND WE'LL DO THIS BY PRINTING A"
  151. 2800 PRINT"NUMBER OF  [146]_THESE,AND THEY'RE S$(8)"
  152. 2810 PRINT"...REMEMBER?"
  153. 2820 GOSUB63000:PRINT
  154. 2830 PRINT"WE'LL TYPE:"
  155. 2840 PRINT"104 MAXV=0"
  156. 2850 PRINT"130 IF MAXV<V(I) THEN MAXV=V(I)"
  157. 2860 FORI=1TO1000:NEXT
  158. 2870 PRINT"THEN WE'LL HAVE:"
  159. 2875 PRINT"104 MAXV=0"
  160. 2880 PRINT"105 FOR I=1TO12"
  161. 2890 PRINT"110 ?M$(I)"CHR$(34)" VALUE="CHR$(34)
  162. 2900 PRINT"120 INPUT V(I)"
  163. 2950 PRINT"130 IF MAXV<V(I) THEN MAXV=V(I)"
  164. 2960 PRINT:PRINT"HIT A KEY"
  165. 2961 GETA$:IFA$=""THEN2961
  166. 2970 PRINT:PRINT"IN #130 WE CHECK IF MAXV (ORIGINALLY 0)"
  167. 2980 PRINT"IS LESS THAN.. < ..THE V-VALUE"
  168. 2990 PRINT"INPUT. IF SO,WE SET MAXV=THE V-VALUE."
  169. 3000 PRINT"WHEN THE "CHR$(34)"FOR-NEXT"CHR$(34)" LOOP"
  170. 3010 PRINT"IS FINISHED, MAXV WILL EQUAL THE MAX."
  171. 3020 PRINT"OF THE V-VALUES!"
  172. 3025 GOSUB63000
  173. 3030 PRINT"[147]IF A VALUE IS, SAY,123456.7"
  174. 3040 PRINT"THEN IT'LL TAKE UP 8 SPACES TO PRINT"
  175. 3050 PRINT"AND WE'LL HAVE TO KNOW THIS,SO.."
  176. 3060 PRINT"WHILE INPUTTING THE V'S & FINDING"
  177. 3070 PRINT"THEIR MAX'M VALUE, YOU CAN ALSO FIND"
  178. 3080 PRINT"THE MAX'M LENGTH OF THE NUMBERS V(I)."
  179. 3090 PRINT"          [163][163][163][163][163][163]"
  180. 3100 GOSUB63000
  181. 3110 PRINT"[147]FIRST WE'LL CHANGE THE NUMBER V(I)"
  182. 3120 PRINT"                       [163][163][163][163][163][163]"
  183. 3130 PRINT"TO A STRING OF SYMBOLS,"
  184. 3140 PRINT"     [163][163][163][163][163][163]"
  185. 3150 PRINT"BY SETTING: X$=STR$(V(I))"
  186. 3170 PRINT"THEN WE'LL FIND THE LENGTH OF X$"
  187. 3171 PRINT
  188. 3180 PRINT"L=LEN(X$)"
  189. 3185 GOSUB63000
  190. 3190 PRINT"[147]WE TYPE:"
  191. 3200 PRINT"140 X$=STR$(V(I)):L=LEN(X$)"
  192. 3210 FORI=1TO1000:NEXT
  193. 3220 PRINT"..OR,WHY NOT?.."
  194. 3230 PRINT"140 L=LEN(STR$(V(I)))"
  195. 3235 PRINT"NOTE THAT STR$(V)[146] CHANGES A NUMBER"
  196. 3236 PRINT"V TO A STRING OF CHARACTERS!"
  197. 3237 PRINT"..AND LEN(V$)[146] GIVES THE LENGTH OF "
  198. 3238 PRINT"A STRING V$!"
  199. 3240 GOSUB63000
  200. 3250 PRINT"TO FIND THE MAX'M "CHR$(34)"LENGTH"CHR$(34)" OF THE V'S,"
  201. 3260 PRINT"TYPE:"
  202. 3270 PRINT"150 IF ML<L THEN ML=L"
  203. 3280 PRINT"(JUST AS WE DID TO FIND THE MAX'M VALUE)"
  204. 3290 GOSUB63000
  205. 3300 PRINT"[147]NOW WE END THE FOR-NEXT LOOP!"
  206. 3310 PRINT"[183][183][183]            [163][163][163][163][163][163][163][163]"
  207. 3320 PRINT"160 NEXT"
  208. 3330 GOSUB63000
  209. 3340 PRINT"[147]  WHAT HAVE WE GOT SO FAR?"
  210. 3350 FORI=1TO500:NEXT
  211. 6570 PRINT"90 DIM M$(12),V(12)"
  212. 6580 PRINT"100 DATA JAN,FEB,MAR,APR,MAY,JUN"
  213. 6600 PRINT"101 DATA JUL,AUG,SEP,OCT,NOV,DEC"
  214. 6630 PRINT"102 FORI=1TO12:READ M$(I)
  215. 6640 [153]"104 MAXV=0:ML=0"
  216. 6680 [153]"105 FOR I=1TO12"
  217. 6690 [153]"110 ?M$(I)"[199](34)" VALUE="[199](34)
  218. 6700 [153]"120 INPUT V(I)"
  219. 6850 [153]"130 IF MAXV<V(I) THEN MAXV=V(I)"
  220. 7230 [153]"140 L=LEN(STR$(V(I)))"
  221. 7240 [153]"150 IF ML<L THEN ML=L"
  222. 7320 [153]"160 NEXT"
  223. 7330 [153]:[153]"NOTE THAT WE'VE ADDED THE DIMENSION"
  224. 7340 [153]"OF THE V'S, IN #90."
  225. 7350 [153]"WE'VE ALSO STARTED ML,(THE MAX'M LENGTH"
  226. 7360 [153]"OF THE V'S),WITH THE VALUE 0..IN#104."
  227. 7370 [141]63000
  228. 7380 [153]"OK..YOU ENTER THESE STATEMENTS."
  229. 7390 [153]"    TAB(TAB(TAB("
  230. 7400 [153]"TYPE RUNWAIT TO START YOUR PROGRAM,"
  231. 7410 [153]"AND SEE IF IT WORKS SO FAR!"
  232. 7420 [153]"AFTER ENTERING 12 NUMBERS,WHEN ASKED,"
  233. 7430 [153]"YOU CAN TYPE: "
  234. 7440 [153]"?V(3)"
  235. 7450 [153]"AND I'LL PRINT THE MARCH VALUE ENTERED."
  236. 7460 [153]"WHEN YOU WANT TO CONTINUE, TYPE @"
  237. 7470 [153]"HERE'S THE PROGRAM AGAIN:"
  238. 7490 [141]63000
  239. 7510 [153]"LOADREMEMBER,YOU NEEDN'T RETYPE ALL THIS!"
  240. 7520 [153]"JUST PRESS HOME AND A BUNCH OF RETURNS."
  241. 7530 [153]"           TAB(TAB(TAB(TAB(                TAB(TAB(TAB(TAB(TAB(TAB("
  242. 7535 [153]:[153]"(..AND I'LL THINK YOU TYPED THEM)"
  243. 7540 [141]63000
  244. 7550 [153]"LOAD";
  245. 8570 [153]"90 DIM M$(12),V(12)"
  246. 8580 [153]"100 DATA JAN,FEB,MAR,APR,MAY,JUN"
  247. 8600 [153]"101 DATA JUL,AUG,SEP,OCT,NOV,DEC"
  248. 8630 :[153]"102 FORI=1TO12:READ M$(I):NEXT"
  249. 8640 [153]"104 MAXV=0:ML=0"
  250. 8680 [153]"105 FOR I=1TO12"
  251. 8690 [153]"110 ?M$(I)"[199](34)" VALUE="[199](34)
  252. 8700 [153]"120 INPUT V(I)"
  253. 8850 [153]"130 IF MAXV<V(I) THEN MAXV=V(I)"
  254. 9230 [153]"140 L=LEN(STR$(V(I)))"
  255. 9240 [153]"150 IF ML<L THEN ML=L"
  256. 9320 [153]"160 NEXT"
  257. 9330 [153]"(REMEMBER..TYPE @WAIT TO CONT.)"
  258. 9340 SN$[178]"10000":[137]63400
  259. 10000 [141]60000:[153]"LOADOK..LET'S FORGE AHEAD!"
  260. 10001 MS$[178]"GO!GO!GO!":[141]63100
  261. 10002 [141]63000
  262. 10010 [153]"LOADWE'LL START PRINTING THE BARS."
  263. 10020 [153]"TYPE:"
  264. 10030 [153]:[153]"170 FORI=1TO12
  265. 10040 PRINT"180 ?"CHR$(34)""CHR$(34)"M$(I)"CHR$(34)"-"CHR$(34)";
  266. 10050 [153]"190 L$=STR$(V(I))
  267. 10060 PRINT"200 L=LEN(L$)
  268. 10090 [153]"230 ?"[199](34)""[199](34)"L$"[199](34)"THEN"[199](34)";"
  269. 10100 [153]"240 S=V(I)*30/MAXV"
  270. 10110 [153]"250 IS=INT(S):FS=S-IS"
  271. 10120 [153]"260 FORJ=1TOIS:?S$(8);:NEXT"
  272. 10130 [153]"270 ?S$(8*FS)"
  273. 10140 [153]"280 NEXT"
  274. 10150 [153]:[153]"#180 PRINTS(IN RVS)THE MONTH,AND A -."
  275. 10160 [153]"#190/200 CONVERTS THE VALUE V(I) TO A"
  276. 10170 [153]"  STRING (L$),AND DETERMINES THE"
  277. 10180 [153]"  LENGTH OF THE STRING (L)."
  278. 10185 [153]"#230 PRINTS L$ AND A THENWAIT"
  279. 10190 [153]"#240 REDUCES THE VALUE OF THE V'S SO"
  280. 10200 [153]"  THE LARGEST IS 30. THE REDUCED VALUE"
  281. 10210 [153]"  IS CALLED S."
  282. 10220 [153]"HIT A KEYWAIT"
  283. 10230 [161]A$:[139]A$[178]""[167]10230
  284. 10240 [153]:[153]"#250 GETS THE INTEGER PART OF S..(IS)"
  285. 10250 [153]"  AND THE FRACTIONAL PART OF S..(FS)"
  286. 10260 [153]"#260 PRINTS A BUNCH OF  WAIT'S"
  287. 10270 [153]"#270 PRINTS THE FINAL FRACTIONAL PIECE"
  288. 10280 [153]"  OF S$(8),NAMELY S$(1) OR S$(2)..ETC."
  289. 10290 [153]"  ACCORDING TO THE SIZE OF THE FRACT'L"
  290. 10300 [153]"  PART OF S, NAMELY FS."
  291. 10400 [141]63000
  292. 10420 [153]"LOADPLEASE ENTER THE PROGRAM."
  293. 10430 [153]"I'LL PUT IT RIGHT AFTER THE STATEMENTS"
  294. 10440 [153]"#99-#160.  AFTER YOU HAVE ENTERED IT.."
  295. 10450 [153]"TRY ITWAIT!"
  296. 10460 [153]"IN PARTICULAR, ENTER VALUES"
  297. 10470 [153]"WHICH HAVE DIFFERENT LENGTHS,LIKE:"
  298. 10480 [153]"123 AND 1234."
  299. 10490 [153]"(THEN YOU'LL SEE WE'VE GOT SOME WORK TO"
  300. 10500 [153]"DO ON THE PROGRAM!)"
  301. 10600 [153]"SEE IF YOU CAN FIX ITWAIT!"
  302. 10610 [153]"(THEN TYPE @WAIT TO CONTINUE)"
  303. 10630 [153]"RETURNWAIT TO GET THE PROGRAM"
  304. 10639 [141]63001
  305. 10650 [153]"LOADHERE IT IS AGAIN."
  306. 10660 [129]I[178]1[164]500:[130]
  307. 11000 [153]"LOAD"
  308. 11030 [153]:[153]"170 FORI=1TO12
  309. 11040 PRINT"180 ?"CHR$(34)""CHR$(34)"M$(I)"CHR$(34)"-"CHR$(34)";
  310. 11050 [153]"190 L$=STR$(V(I))
  311. 11060 PRINT"200 L=LEN(L$)
  312. 11090 [153]"230 ?"[199](34)""[199](34)"L$"[199](34)"THEN"[199](34)";"
  313. 11100 [153]"240 S=V(I)*30/MAXV"
  314. 11110 [153]"250 IS=INT(S):FS=S-IS"
  315. 11120 [153]"260 FORJ=1TOIS:?S$(8);:NEXT"
  316. 11130 [153]"270 ?S$(8*FS)"
  317. 11140 [153]"280 NEXT"
  318. 11150 [153]:[153]"(TYPE @WAIT TO CONT.)"
  319. 11160 SN$[178]"12000":[137]63400
  320. 12000 [141]60000:[153]"LOAD":  MS$[178]"WORK TO DO":[141]63100
  321. 12005 [153]"LOADYOU CAN SEE HOW IMPORTANT THE LENGTH"
  322. 12010 [153]"OF THE VALUES IS! IN FACT THAT'S WHY I"
  323. 12020 [153]"ASKED YOU TO INCLUDE THE STATEMENTS:"
  324. 12030 [153]"190L$=STR$(V(I))"
  325. 12040 [153]"200L=LEN(L$)"
  326. 12050 [153]"THE PROGRAM DIDN'T EVEN USE THEM!WAIT"
  327. 12060 [153]"NOW ..."
  328. 12065 [153]"WE'LL INSERT #210 & #220:":[153]
  329. 12070 [153]"210 IF L=ML GOTO230
  330. 12080 PRINT"220 FORJ=1TOML-L:?S$(8);:NEXT
  331. 12090 [153]"230 ?"[199](34)""[199](34)"L$"[199](34)"THEN"[199](34)";"
  332. 12100 [153]"240 S=V(I)*30/MAXV"
  333. 12110 [153]"ETC.":[153]
  334. 12120 [153]"HIT A KEYWAIT"
  335. 12130 [161]A$:[139]A$[178]""[167]12130
  336. 12140 [153]:[153]"IF THE VALUE ABOUT TO BE PRINTED"
  337. 12150 [153]"IS "[199](34)"SHORT"[199](34)",WE INSERT SOME  WAIT'S"
  338. 12160 [153]"SO EVERY PRINTING OF THE V'S HAS THE"
  339. 12170 [153]"SAME NO. OF SPACES."
  340. 12180 [153]"#220 INSERTS THESE  WAIT'S BEFORE PRINTING"
  341. 12190 [153]"THE VALUE,IN #230(CALLED L$)."
  342. 12200 [153]"IF THE VALUE ABOUT TO BE PRINTED HAS"
  343. 12210 [153]"MAX'M LENGTH (L=ML) WE OMIT THE  WAIT'S."
  344. 12211 [153]"  TAB(TAB(TAB(TAB(TAB("
  345. 12220 [141]63000
  346. 12230 [153]"LOADFINALLYWAIT,IN A FOR-NEXT LOOP"
  347. 12240 [153]"I ALWAYS OBEY THE INST'NS BETWEEN"
  348. 12250 [153]"  "[199](34)"FOR"[199](34)" AND "[199](34)"NEXT"
  349. 12260 [153]"AT LEAST ONCE BEFORE CHECKING IF I'VE"
  350. 12270 [153]"DONE THEM OFTEN ENOUGH!"
  351. 12280 [153]"THAT MEANS THAT,IN A LOOP SUCH AS:"
  352. 12290 [153]"260 FOR J=1 TO IS"
  353. 12300 [153]:[153]"I'LL OBEY THE NEXT INST'N ONCE"
  354. 12310 [153]"EVEN IF "[199](34)"IS"[199](34)" IS ZERO(!)"
  355. 12320 [153]"SO YOU MUST CHECK FOR: IS=0 LIKE SO:"
  356. 12330 [153]"255 IF IS=0 GO TO 270"
  357. 12340 [153]"THEN,IN #270,YOU PRINT THE FRACT'L PIECE"
  358. 12350 [153]"OF S$(8) ONLY."
  359. 12360 [141]63000
  360. 12370 [153]"THE "[199](34)"FINISHED"[199](34)" PRODUCT IS:"
  361. 13030 [153]:[153]"170 FORI=1TO12
  362. 13040 PRINT"180 ?"CHR$(34)""CHR$(34)"M$(I)"CHR$(34)"-"CHR$(34)";
  363. 13050 [153]"190 L$=STR$(V(I))
  364. 13060 PRINT"200 L=LEN(L$)
  365. 13061 [153]"210 IF L=ML GOTO230
  366. 13062 PRINT"220 FORJ=1TOML-L:?S$(8);:NEXT
  367. 13090 [153]"230 ?"[199](34)""[199](34)"L$"[199](34)"THEN"[199](34)";";
  368. 13091 [153][199](34)"WAIT"[199](34)";"
  369. 13100 [153]"240 S=V(I)*30/MAXV"
  370. 13110 [153]"250 IS=INT(S):FS=S-IS"
  371. 13115 [153]"255 IFIS=0GOTO270"
  372. 13120 [153]"260 FORJ=1TOIS:?S$(8);:NEXT"
  373. 13130 [153]"270 ?S$(8*FS)"
  374. 13140 [153]"280 NEXT"
  375. 13145 [153]:[153]"(NOTE THAT #230 INCLUDES A RVS-OFF)"
  376. 13150 [153]:[153]"ENTER THESE STATEMENTS AND TRY IT"
  377. 13160 [153]"TYPE @WAIT TO CONTINUE."
  378. 13170 SN$[178]"15000":[137]63400
  379. 15000 [141]60000:[153]"LOAD":MS$[178]"IT WORKS!":[141]63100
  380. 15001 [153]"LOADLET ME SAY ONE LAST THING..ABOUT GETWAIT."
  381. 15005 [153]:[153]"YOU MAY TYPE THINGS ON THE KEYBOARD"
  382. 15010 [153]:[153]"WHILE I'M BUSY DOING SOMETHING..."
  383. 15015 [153]:[153]"AND I'LL KEEP UP TO 10 KEYPUNCHES IN A"
  384. 15020 [153]:[153]"'KEYBOARD BUFFER'."
  385. 15025 [153]:[153]"WHEN I RETURN TO 'GET' THE NEXT INST'N "
  386. 15030 [153]:[153]"FROM THE KEYBOARD I'LL CHECK THE BUFFER"
  387. 15035 [153]:[153]"AND TAKE THE ENTRIES FROM THERE."
  388. 15036 [153]:[153]"(IN FACT I ALWAYS TAKE KEYBOARD INPUT"
  389. 15037 [153]:[153]"FROM THE KEYBOARD BUFFER)."
  390. 15038 [153]:[141]63000
  391. 15040 [153]"LOADWHEN WRITING A PROGRAM YOU CAN INCLUDE"
  392. 15045 [153]:[153]"A STATEMENT LIKE:"
  393. 15050 [153]:[153]"100 GETA$:IFA$="[199](34)[199](34) "GOTO100"
  394. 15060 [153]:[153]"THAT SAYS:'GET' A CHARACTER FROM THE "
  395. 15065 [153]"KEYBOARD BUFFER,IF THE CH'R IS NULLWAIT"
  396. 15070 [153]:[153]"(SEE..'NOTHING' BETWEEN THE QUOTES!)"
  397. 15075 [153]:[153]"THEN KEEP TRYING!!"
  398. 15076 [153]:[153]:[141]63000
  399. 15080 [153]"LOADTO EMPTY THE BUFFER:"
  400. 15085 [153]:[153]"100 FORI=1TO10:GETA$:NEXT"
  401. 15090 [153]:[153]"..TAKING 10 CHARACTERS FROM THE BUFFER."
  402. 15095 [153]:[153]"THAT'S ENOUGH TO EMPTY IT!"
  403. 15100 [153]:[153]"..OR YOU CAN HAVE:"
  404. 15110 [153]:[153]"100 GETA$:IFA$<>"[199](34)[199](34)"THEN100"
  405. 15115 [153]"THIS WILL 'GET' A CHARACTER UNTIL THE "
  406. 15120 [153]"BUFFER IS EMPTY."
  407. 15125 [153]:[141]63000
  408. 15130 [153]"LOADDURING TUTORWAIT YOU MAY HAVE NOTICED:"
  409. 15135 [153]"'HIT RETURNWAIT TO CONTINUEWAIT'."
  410. 15140 [153]"THE LITTLE SUBROUTINE WHICH PRINTS"
  411. 15145 [153]"THIS AT THE BOTTOM OF THE SCREEN.."
  412. 15146 [153]"THEN WAITS!..IS:"
  413. 15150 [141]63000
  414. 15165 [153]"LOAD":MS$[178]"AU REVOIR!WAIT":[141]63100:[141]63500:[153]""
  415. 15170 [155]63000[171]63003
  416. 20000 [153]"LOAD"
  417. 20005 [153]"LOAD BEFORE I FORGET, I SHOULD INTRODUCE"
  418. 20010 [153]"MY FRIEND"[199](34)"CURSOR"[199](34)"."
  419. 20015 [129]I[178]1[164]1000:[130]
  420. 20016 WD[178]80:[151]32768[170]1024,96:[139][194](32768)[178]96[167]WD[178]40
  421. 20020 [153]"I CALL HIM CRSRWAIT FOR SHORT."
  422. 20025 [129]I[178]1[164]1500:[130]
  423. 20030 [153]"COME ON CRSR..DON'T BE SHY."
  424. 20040 [129]I[178]1[164]2000:[130]
  425. 20050 [129]I[178]1[164]10
  426. 20060 [153]"";:[130]
  427. 20070 [153][166]14);
  428. 20080 [129]I[178]1[164]8:[129]T[178]1[164]50:[130]
  429. 20090 [153]" CMDON WAITCMD";:[130]
  430. 20100 [129]I[178]1[164]500:[130]
  431. 20110 [153]" _THAT'S HIM"
  432. 20120 CSR[178]32768[170]8[172]WD[170]14:[129]I[178]1[164]100:[151]CSR,32:[151]CSR,160:[130]
  433. 20130 [153]"THEN WE HAVE CRSR-LEFT";
  434. 20140 [153]"   "[199](34)"CMD"[199](34)
  435. 20141 [129]I[178]1[164]500:[130]:[153]
  436. 20150 [153]"AND CRSR-RIGHT";
  437. 20160 [153]"     "[199](34)""[199](34)
  438. 20161 [129]I[178]1[164]500:[130]:[153]
  439. 20170 [153]"AND CRSR-UP";
  440. 20180 [153]"     "[199](34)"ON"[199](34)
  441. 20181 [129]I[178]1[164]500:[130]:[153]
  442. 20190 [153]"AND CRSR-DOWN";
  443. 20200 [153]"     "[199](34)""[199](34)
  444. 20201 [129]I[178]1[164]1500:[130]:[153]
  445. 20210 [153]"(ALL BROTHERS,OF COURSE)."
  446. 20215 [129]I[178]1[164]1000:[130]:[153]
  447. 20220 [153]"WE ALSO HAVE HOME";
  448. 20230 [153]"    "[199](34)""[199](34)
  449. 20231 [129]I[178]1[164]200:[130]
  450. 20240 [153]"..AND CLEAR  ";
  451. 20250 [153]"    "[199](34)"LOAD"[199](34)
  452. 20251 [129]I[178]1[164]200:[130]
  453. 20260 [153]"..AND RVS     "[199](34)""[199](34)
  454. 20261 [129]I[178]1[164]200:[130]
  455. 20270 [153]"..AND RVS-OFF    "[199](34)"WAIT"[199](34)
  456. 20280 [129]I[178]1[164]500:[130]:[153]
  457. 20290 [153]">>>GET TO KNOW THEM<<<"
  458. 20295 [129]I[178]1[164]200:[130]:[153]
  459. 20300 [153]"INSIDE QUOTES,THEY DO THEIR THING."
  460. 20400 [129]I[178]1[164]500:[130]:[153]
  461. 20500 [141]63000:[142]
  462. 23360 [141]63000
  463. 59000 [153]"LOAD":[141]63100
  464. 59001 [153]"DURING THE TUTORIAL YOU MAY WISH"
  465. 59002 [153]"TO RETURN TO AN EARLIER 'PAGE'."
  466. 59003 [153]"JUST HIT THE @-KEYWAIT, AT ANY TIME,"
  467. 59004 [153]"AND THE TUTORIAL WILL BACK UP"
  468. 59005 [153]"A PAGE OR TWO."
  469. 59006 [153]"ALSO, YOU HAVE AN OPPORTUNITY TO"
  470. 59007 [153]"COMPOSE YOUR OWN PROGRAMS."
  471. 59008 [153]"WHEN YOU WISH TO CONTINUE WITH"
  472. 59009 [153]"THE TUTORIAL, HIT THE @-KEYWAIT!":[141]63000
  473. 59010 MS$[178]"@WAIT_REMEMBER":[141]63100
  474. 59020 [141]63000:[142]
  475. 60000 [151]204,1:[143] INITIALIZE
  476. 60001 BT$[178]"":[129]I[178]1[164]24:BT$[178]BT$[170]"":[130]
  477. 60002 PT$[178]"ORTANTANTANTANTANTANTANTANTANTAN^CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD(null)(null)CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD/=TANTANTANTANTANTANTANTAN=EXP"
  478. 60003 PT$[178]PT$[170]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDFN============THEN"
  479. 60004 PT$[178]PT$[170]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD(null)(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)(null)ONONONONCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"
  480. 60005 PT$[178]BT$[170]"ONONONONONON"[170]PT$[170]"STOP"
  481. 60007 ML$[178]""
  482. 60008 WD[178]40:CRT[178]1024:[153][199](142)
  483. 60009 W2[178]WD[173]2:W3[178]WD[171]1:W1$[178][202]([196](WD),2):
  484. 60010 W2$[178][202]([196](W2),2):W3$[178][202]([196](W3),2)
  485. 60020 [153]"LOAD":[151]53281,15:[151]53280,12:[153]"STOP"
  486. 60998 [139][194](789)[179][177]7[172]16[170]15[167][158](7[172]4096[170]15[172]256[170]12[172]16[170]3)
  487. 60999 [142]
  488. 61000 [143]*NEW WORKSPACE
  489. 61001 M[178]7[172]4096[170]15[172]256[170]15[172]16
  490. 61002 [140]
  491. 61003 [129]I[178]M[164]M[170]15:[135]K:[151]I,K:[130]
  492. 61004 [131] 1,96,3,96,3,96,3,96
  493. 61005 [131] 144,127,0,0,144,127,0,0
  494. 61006 M[178]6[172]4096:[129]I[178]0[164]2:[151]M[170]I,0:[130]
  495. 61007 [142]
  496. 63000 [153]"HIT RETURNWAIT TO CONTINUE";
  497. 63001 [161]A$:[139]A$[179][177]""[167]63001
  498. 63002 [161]A$:[139]A$[178]""[167]63002
  499. 63003 [153]:[142]
  500. 63100 [129]T[178]1[164]5:[153]PT$MS$;
  501. 63101 [153]PT$"          ";
  502. 63102 [153]PT$MS$;:[130]
  503. 63103 [153]:[142]
  504. 63200 [151]56,96:[151]52,96:[151]55,0:[151]51,0:[141]61000
  505. 63201 WD[178]40:[153][199](142)
  506. 63202 M[178]7[172]4096[170]15[172]256[170]9[172]16
  507. 63203 [129]I[178]M[164]M[170]91:[135]K:[151]I,K:[130]
  508. 63204 [131]165,203,201,46,208,83,32,195,127,165,44,201,8,240,3,32,177,127,32
  509. 63205 [131]142,166,165,44,201,8,240,3,76,128,164,76,174,167,162,16,189,239
  510. 63206 [131]127,72,181,42,157,239,127,104,149,42,202,208,241,96,120,173,238,127
  511. 63207 [131]77,20,3,141,20,3,173,239,127,77,21,3,141,21,3,88,96,173,20,3,73
  512. 63208 [131]144,141,238,127,173,21,3,73,127,141,239,127,96,76,255,255
  513. 63216 [151]M[170]90,[194](788):[151]M[170]91,[194](789)
  514. 63220 KEY[178]7[172]4096[170]15[172]256[170]13[172]16[170]8
  515. 63221 [158](KEY):[143] KEY FOR IRQ SWAP
  516. 63299 [142]
  517. 63300 [143]*SWITCH TO NEW WORKSPACE
  518. 63301 [141]63600:[143] RUN NUMBER
  519. 63302 [141]61000:[143] NEW THE WORKSPACE
  520. 63303 [137]63403
  521. 63400 [143]*SWITCH TO OLD WORKSPACE
  522. 63401 [141]63600
  523. 63403 SWTCH[178]7[172]4096[170]15[172]256[170]9[172]16[170]15
  524. 63404 [158](SWTCH):[143] SWAP POINTERS
  525. 63405 [151]204,2:[128]
  526. 63500 [143]*RESTORE PET
  527. 63501 SN$[178]"100":[141]63600
  528. 63502 M[178]7[172]4096[170]15[172]256[170]12[172]16[170]3:[139][194](789)[178]7[172]16[170]15[167][158]M
  529. 63503 [142]
  530. 63600 [143]*INSERT RUN NUMBER
  531. 63601 M[178]2059:SN$[178]"00000"[170]SN$
  532. 63602 [129]I[178]1[164]5:[151]M[171]I,[198]([201](SN$,I)):[130]:[142]
  533.